home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 July: Mac OS SDK / Dev.CD Jul 97 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Interfaces / AIncludes / ToolUtils.a < prev    next >
Encoding:
Text File  |  1996-01-24  |  4.1 KB  |  219 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        ToolUtils.a
  3. ;
  4. ;    Contains:    Toolbox Utilities Interfaces.
  5. ;
  6. ;    Version:    Technology:    System 7.5
  7. ;                Package:    Universal Interfaces 2.2 in “MPW” on ETO #20
  8. ;
  9. ;    Copyright:    © 1984-1995 by Apple Computer, Inc.
  10. ;                All rights reserved.
  11. ;
  12. ;    Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13. ;                stack.  Include the file and version information (from above)
  14. ;                in the problem description and send to:
  15. ;                    Internet:    apple.bugs@applelink.apple.com
  16. ;                    AppleLink:    APPLE.BUGS
  17. ;
  18. ;
  19.  
  20.     IF &TYPE('__TOOLUTILS__') = 'UNDEFINED' THEN
  21. __TOOLUTILS__ SET 1
  22.  
  23.  
  24.     IF &TYPE('__TYPES__') = 'UNDEFINED' THEN
  25.     include 'Types.a'
  26.     ENDIF
  27. ;        include 'ConditionalMacros.a'                                ;
  28.  
  29.     IF &TYPE('__OSUTILS__') = 'UNDEFINED' THEN
  30.     include 'OSUtils.a'
  31.     ENDIF
  32. ;        include 'MixedMode.a'                                        ;
  33. ;        include 'Memory.a'                                            ;
  34.  
  35.     IF &TYPE('__TEXTUTILS__') = 'UNDEFINED' THEN
  36.     include 'TextUtils.a'
  37.     ENDIF
  38. ;        include 'Script.a'                                            ;
  39. ;            include 'Quickdraw.a'                                    ;
  40. ;                include 'QuickdrawText.a'                            ;
  41. ;            include 'IntlResources.a'                                ;
  42. ;            include 'Events.a'                                        ;
  43.  
  44.     IF &TYPE('__FIXMATH__') = 'UNDEFINED' THEN
  45.     include 'FixMath.a'
  46.     ENDIF
  47.     IF OLDROUTINELOCATIONS  THEN
  48.  
  49.     IF &TYPE('__QUICKDRAW__') = 'UNDEFINED' THEN
  50.     include 'Quickdraw.a'
  51.     ENDIF
  52.  
  53.     IF &TYPE('__ICONS__') = 'UNDEFINED' THEN
  54.     include 'Icons.a'
  55.     ENDIF
  56.     ENDIF
  57. ;
  58. ;    Note: 
  59. ;    
  60. ;    The following have moved to Icons.h:      PlotIcon and GetIcon
  61. ;    
  62. ;    The following have moved to Quickdraw.h: GetPattern, GetIndPattern, GetCursor, ShieldCursor, 
  63. ;                                             GetPicture, DeltaPoint and ScreenResGetCursor
  64. ;
  65. Int64Bit                 RECORD    0
  66. hiLong                     ds.l   1        ; offset: $0 (0)
  67. loLong                     ds.l   1        ; offset: $4 (4)
  68. sizeof                     EQU *            ; size:   $8 (8)
  69.                         ENDR
  70.  
  71. ; typedef struct Int64Bit     Int64Bit
  72. ;
  73. ; pascal Fixed FixRatio(short numer, short denom)
  74. ;
  75.     IF ¬ GENERATINGCFM THEN
  76.         _FixRatio:    OPWORD    $A869
  77.     ELSE
  78.         IMPORT_CFM_FUNCTION    FixRatio
  79.     ENDIF
  80.  
  81. ;
  82. ; pascal Fixed FixMul(Fixed a, Fixed b)
  83. ;
  84.     IF ¬ GENERATINGCFM THEN
  85.         _FixMul:    OPWORD    $A868
  86.     ELSE
  87.         IMPORT_CFM_FUNCTION    FixMul
  88.     ENDIF
  89.  
  90. ;
  91. ; pascal short FixRound(Fixed x)
  92. ;
  93.     IF ¬ GENERATINGCFM THEN
  94.         _FixRound:    OPWORD    $A86C
  95.     ELSE
  96.         IMPORT_CFM_FUNCTION    FixRound
  97.     ENDIF
  98.  
  99. ;
  100. ; pascal void PackBits(Ptr *srcPtr, Ptr *dstPtr, short srcBytes)
  101. ;
  102.     IF ¬ GENERATINGCFM THEN
  103.         _PackBits:    OPWORD    $A8CF
  104.     ELSE
  105.         IMPORT_CFM_FUNCTION    PackBits
  106.     ENDIF
  107.  
  108. ;
  109. ; pascal void UnpackBits(Ptr *srcPtr, Ptr *dstPtr, short dstBytes)
  110. ;
  111.     IF ¬ GENERATINGCFM THEN
  112.         _UnpackBits:    OPWORD    $A8D0
  113.     ELSE
  114.         IMPORT_CFM_FUNCTION    UnpackBits
  115.     ENDIF
  116.  
  117. ;
  118. ; pascal Boolean BitTst(const void *bytePtr, long bitNum)
  119. ;
  120.     IF ¬ GENERATINGCFM THEN
  121.         _BitTst:    OPWORD    $A85D
  122.     ELSE
  123.         IMPORT_CFM_FUNCTION    BitTst
  124.     ENDIF
  125.  
  126. ;
  127. ; pascal void BitSet(void *bytePtr, long bitNum)
  128. ;
  129.     IF ¬ GENERATINGCFM THEN
  130.         _BitSet:    OPWORD    $A85E
  131.     ELSE
  132.         IMPORT_CFM_FUNCTION    BitSet
  133.     ENDIF
  134.  
  135. ;
  136. ; pascal void BitClr(void *bytePtr, long bitNum)
  137. ;
  138.     IF ¬ GENERATINGCFM THEN
  139.         _BitClr:    OPWORD    $A85F
  140.     ELSE
  141.         IMPORT_CFM_FUNCTION    BitClr
  142.     ENDIF
  143.  
  144. ;
  145. ; pascal long BitAnd(long value1, long value2)
  146. ;
  147.     IF ¬ GENERATINGCFM THEN
  148.         _BitAnd:    OPWORD    $A858
  149.     ELSE
  150.         IMPORT_CFM_FUNCTION    BitAnd
  151.     ENDIF
  152.  
  153. ;
  154. ; pascal long BitOr(long value1, long value2)
  155. ;
  156.     IF ¬ GENERATINGCFM THEN
  157.         _BitOr:    OPWORD    $A85B
  158.     ELSE
  159.         IMPORT_CFM_FUNCTION    BitOr
  160.     ENDIF
  161.  
  162. ;
  163. ; pascal long BitXor(long value1, long value2)
  164. ;
  165.     IF ¬ GENERATINGCFM THEN
  166.         _BitXor:    OPWORD    $A859
  167.     ELSE
  168.         IMPORT_CFM_FUNCTION    BitXor
  169.     ENDIF
  170.  
  171. ;
  172. ; pascal long BitNot(long value)
  173. ;
  174.     IF ¬ GENERATINGCFM THEN
  175.         _BitNot:    OPWORD    $A85A
  176.     ELSE
  177.         IMPORT_CFM_FUNCTION    BitNot
  178.     ENDIF
  179.  
  180. ;
  181. ; pascal long BitShift(long value, short count)
  182. ;
  183.     IF ¬ GENERATINGCFM THEN
  184.         _BitShift:    OPWORD    $A85C
  185.     ELSE
  186.         IMPORT_CFM_FUNCTION    BitShift
  187.     ENDIF
  188.  
  189. ;
  190. ; pascal Fixed SlopeFromAngle(short angle)
  191. ;
  192.     IF ¬ GENERATINGCFM THEN
  193.         _SlopeFromAngle:    OPWORD    $A8BC
  194.     ELSE
  195.         IMPORT_CFM_FUNCTION    SlopeFromAngle
  196.     ENDIF
  197.  
  198. ;
  199. ; pascal short AngleFromSlope(Fixed slope)
  200. ;
  201.     IF ¬ GENERATINGCFM THEN
  202.         _AngleFromSlope:    OPWORD    $A8C4
  203.     ELSE
  204.         IMPORT_CFM_FUNCTION    AngleFromSlope
  205.     ENDIF
  206.  
  207.     IF GENERATING68K  THEN
  208. ;
  209. ; pascal void LongMul(long a, long b, Int64Bit *result)
  210. ;
  211.     IF ¬ GENERATINGCFM THEN
  212.         _LongMul:    OPWORD    $A867
  213.     ELSE
  214.         IMPORT_CFM_FUNCTION    LongMul
  215.     ENDIF
  216.  
  217.     ENDIF
  218.     ENDIF ; __TOOLUTILS__
  219.